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.REM 


IDENTIFICATION 


PRODUCT CODE: AC-E965F-MC 

PRODUCT NAME: CXRLAFO RL11/RLV1 1/RLV12/RL01/RL02 

PRODUCT DATE: FEBRUARY 1981 

MAINTAINER: DEC/X11 SUPPORT GROUP 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE 
WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT 
BY DIGITAL EQUIPMENT CORPORATION. DIGITAL EQUIPMENT 
CORPORATION ASSUMES NO RESPONSIBILITY FOR ANY ERRORS THAT 
MAY APPEAR IN THIS MANUAL. 

THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE 
PURCHASER UNDER A LICENSE FOR USE ON A SINGLE COMPUTER 
SYSTEM AND CAN BE COPIED (WITH INCLUSION OF DIGITALS 
COPYRIGHT NOTICE) ONLY FOR USE IN SUCH SYSTEM, EXCEPT AS MAY 
OTHERWISE BE PROVIDED IN WRITING BY DIGITAL. 

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR 
THE USE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS 
NOT SUPPLIED BY DIGITAL. 

COPYRIGHT (C) 1978,1980,1982 DIGITAL EQUIPMENT CORPORATION 
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1 . ABSTRACT 


RLA IS AN IOMODX THAT EXERCISES RL01/RL02 DISK DRIVES ON 
RL11/RLV11/RLV12 CONTROLLERS. IT EXERCISES THE DRIVES BY DOING 
READ HEADERS, SEEKS, READS. WRITES AND IN-CORE COMPARISONS. 

ALL ERRORS DETECTED ARE REPORTED ON THE CONSOLE DEVICE. 


2. REQUIREMENTS 


HARDWARE: 1 TO 4 RL01/RL02 DISK DRIVES (WITH SCRATCH PACKS). 
1 RL11, RLV11, OR RLV12 DISK CONTROLLER. 

STORAGE:: RLA REQUIRES: 

1. DECIMAL WORDS: 1445 

2. OCTAL WORDS: 2645 

3. OCTAL BYTES: 5512 


3. PASS DEFINITION 


ONE PASS OF THE RLA MODULE CONSISTS OF 20 X 100 CYCLES OF THE 
BASIC TEST SEQUENCE (READ HEADER, SEEK, READ HEADER, WRITE, 
WRITl CHECK, READ). THE TEST SEQUENCE WRITES 1024 WORDS, READS 
BACK THE FIRST 256, AND DATA CHECKS THE SAME. 


4. EXECUTION TIME 


ONE PASS OF RLA RUNNING ALONE ON A PDP-11/40 TAKES AP- 
PROXIMATELY ONE MINUTE. 


5. CONFIGURATION REQUIREMENTS 


DEFAULT PARAMETERS: 

DEVADR: 174400, VECTOR: 160, BR1 : 5, DEVCNT: 1 

6. DEVICE/GPTION SETUP 


INSURE THAT ALL DRIVES UNDER TEST ARE POWERED UP. WRITE ENABLED. 
AND READY — AND OF COURSE, SCRATCH PACKS INSTALLED !!! 

IF MORE THAN 1 DRIVE, CHANGE DVID1: (LOC 14') ACCORDINGLY. 

IF RLV12 CONTROLLER, SET SRI: = 10 (LOC 16', BIT 3). 
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7. SRI OPTIONAL SETUP 

BIT 0 - DROP DRIVE ON ERROR 
BIT 1 - RANDOM SEEKS 
BIT 2 - DON’T PRINT SOFT ERRORS 
BIT 3 - CONTROLLER IS AN RLV12 

8. ERROR REPORTING 

ON ERROR ALL REGISTERS ARE PRINTED IN THE FOLLOWING ORDER: 

RL11/RLV11 RLCS RLBA RLDA RLMP DRIVE STATUS 

RLV12 RLCS RLBA RLDA RLMP RLBAE DRIVE STATUS 

****************************************************************************** 
* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

****************************************************************************** 


EDIT: BY: DATE: 

1 G.PASOUINTONIO MAY-81 

2 G.PASOUINTONIO MAY-81 

3 G.PASOUINTONIO MAY-81 

4 G.PASOUINTONIO MAY-81 


REASON: 

"HNF" ERRORS WERE BEING 
REPORTED AS ’DPI". 

CONTROLLER ERROR ON 
URITE-CHECK CAUSED A 
TERMINAL TABLE SEARCH 
(ULTIMATELY TRAPPING TO 4). 

'DROP ON ERROR" OPTION 
(SR1<0» NOT IMPLEMENTED 
CORRECTLY. 

RLV12 22 BIT UPGRADE. 
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IOMODX <RLAF >,174400.160.5.0.0.20. .146,BUFIN,256. ,1024. 

MODULE 150000.RLAF ,1?4406 ,160,5, 0,6, 20. ,146,BUFIN,256. ,1024. 

.TITLE RLAF DEC/X11 SYSTEM EXERCISER MODULE 
DDXCOM VERSION 6 23-MAY-78 

.LIST BIN 

• *********************************************************************** 
BEGIN: 

043101 040 


MODNAM: 

.ASCII 

/RLAF / : MODULE NAME. 

XFLAG: 

.BYTE 

OPEN 

USED TO KEEP TRACK OF WBUFF USAGE 

ADDR: 

174400+0 

1ST DEVICE ADDR. 

VECTOR: 

160+0 

PRTY5+0 

1ST DEVICE VECTOR. 

BR1 : 

.BYTE 

1ST BR LEVEL. 

BR2: 

.BYTE 

PRTYO+O 

2ND BR LEVEL. 

DVID1 : 

0+1 


DEVICE INDICATOR 1. 

SRI: 

OPEN 


SWITCH REGISTER 1 

SR2: 

OPEN 


SWITCH REGISTER 2 

SR3: 

OPEN 


SWITCH REGISTER 3 

SR4: 

OPEN 


SWITCH REGISTER 4 


*********************************************************** *********** 


STAT: 
INI T : 
SPOINT: 
PASCNT : 
ICONT: 

I COUNT: 
SOFCNT : 
HRDCNT: 
SOFPAS: 
HRDPAS : 
SYSCNT : 
R ANNUM: 
CONFIG: 
RES1 
RES? 
SVRO 
SVR1 
SVR2 
SVR3 
SVR4 
SVR5 
SVR6 
CSRA 
SBADR : 
ACSR: 
WAS ADR: 
ASTAT: 
ERRTYP: 
ASB: 
AWAS: 
RSTRT: 
WDTO: 
WDFR: 
INTR: 
JDNUM: 
RBUFVA: 
RBUFPA: 


150000 
START 
MOD SP 
0 

20 . 

0 

0 

0 

0 

0 

0 

0 

0 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

RESTRT 

OPEN 

OPEN 

ui N 

BUF IN 
OPEN 


STATUS WORD. 

MODULE START ADDR. 

MODULE STACK POINTER. 

PASS COUNTER. 

* OF ITERATIONS PER PASS=20. 

LOC TO COUNT ITERATIONS 

LOC TO SAVE TOTAL SOFT ERRORS 
LOC TO SAVE TOTAL HARD ERRORS 
LOC TO SAVE SOFT ERRORS PER PASS 
LOC TO SAVE HARD ERRORS PER PASS 

# OF SYS ERRORS ACCUMULATED 

HOLDS RANDOM # WHEN RAND MACRO IS CALLED 
RESERVED FOR MONITOR USE 
RESERVED FOR MONITOR USE 
RESERVED FOR MONITOR USE 
LOC TO SAVE RO. 

TO SAVE R1. 


LOC 

LOC 

LOC 

LOC 

LOC 

LOC 


TO SAVE R?. 
TO SAVE R3. 
TO SAVE R4. 
TO SAVE R5. 


TO SAVE R6. 

ADDR OF CURRENT CSR. 

ADDR OF GOOD DATA, OR 
CONTENTS OF CSR. 

ADDR OF BAD DATA, OR 
STATUS REG CONTENTS. 

TYPE OF ERROR 
EXPECTED DATA. 

ACTUAL DATA. 

RESTART ADDRESS AFTER END OF PASS 
WORDS TO MEMORY PER ITERATION 
WORDS FROM MEMORY PER ITERATION 
# OF INTERRUPTS PER ITERATION 
MODULE IDENTIFICATION NUMBER=146 
READ BUFFER VIRTUAL ADDRESS 
READ BUFFER PHYSICAL ADDRESS 
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000130' 
‘“132' 



00200 



000252* 

220 

221 000252' 

222 000260* 

223 000266* 

224 000274* 

225 000302* 

226 000310* 

227 000316' 

228 000322* 

229 000326' 

230 000334* 

231 000342* 

232 000344' 

233 000350' 

234 000354* 

235 000356' 

236 000360' 

237 000362* 

238 000364* 

239 000370' 

240 000372* 
2*1 000376' 

242 000404* 

243 000410* 

244 000412' 

245 000420* 

246 000424' 

247 000430* 

248 000432* 

249 000434' 

250 000434* 

251 000442* 

252 000444* 

253 000450' 

9 « 

257 <$047?* 

IIS an: 


012767 

012767 

012767 

012767 

012767 

012767 

005067 

004767 

016767 

122737 

001020 

012702 

113701 

001403 

006302 

105301 

001375 

030267 

001405 

040267 

104403 

005767 

001011 

104403 

000167 

005767 

001001 

000707 

104415 

000421 

006367 

022767 

001013 

012767 

012767 

012767 


002000 

000400 


• ••••>! 


000057 

177400 

000001 

003272 

001300 

177462 

000014 

000001 

000040 


003236 


177636 

177626 

177624 

004422 

0033K 

003252 


003272 

000041 


000020 003112 
000001 003102 

Mb m 


RBUFEA: 
RBUFSZ: 
WBUFPA: 
WBUFEA: 
WBUFRQ: 
WBUFSZ: 
CDERCT: 
CDWDCT : 
FREE: 


MODSP: 


OPEN 

256. 

OPEN 

OPEN 

1024. 

OPEN 

OPEN 

OPEN 

OPEN 

.REPT SPSIZ 
.NLIST 
.WORD 0 
.LIST 
.ENDR 


READ BUFFER E A BITS 
SIZE OF THE READ BUFFER 
WRITE BUFFER PHYSICAL ADDRESS 
WRITE BUFFER EA BITS 
WRITE BUFFER SIZE REQUESTED 
WRITE BUFFER SIZE AVAILABLE 
CDATA/DATCK ERROR COUNT 
CDATA/DATCK WORD COUNT 
RESERVED FOR FUTURE USE 
MODULE STACK STARTS HERE. 


A********************************************************************** 


003230 

000000* 005472* 
003216 

000000* 005422' 

001176 

003160 


000000' 000124' 


1C40 3 000000' 


START: MOV #1024..WDFR 

MOV #256. ,WDTO 

MOV #5.INTR 

MOV #5r .NUMB 

MOV #-400, DRIVE 

MOV #1,DRVMSK 

CLR DLTCNT 

JSR PC. SETUP 

MOV DVID1 .DVICE 

3$: CMPB #14,B#41 

BNE 7$ 

MOV #1.R2 

MOVB B#40,R1 

BEQ 5$ 

4$: ASL R 2 

DECS R1 

BNE 4S 

5$: BIT R2.DVICE 

BEQ 7$ 

BIC R2, DVICE 

MS GNS, BEGIN, DROPLD 
7$: TST DVICE 

BNE RSTRT1 

MSGNS .BEGIN, ABORT 
JMP FINJ 

RESTRT: TST CNT 

BNE RSTRT1 

BR START 

RSTRT1 * 

' GETPAS, BEGIN, RBUFVA 
BR CHKDR1 

LOOPL : ASL DRVMSK 

CMP #20, DRVMSK 

BNE CHKDR1 

MOV #1,DRVMSK 

MOV #57.NUMB 

MOV #-400, DRIVE 

CHKDRV: 

ENDITS, BEGIN 


RSTRT1 : 


LOOPL: 


CHKDRV: 


;1024. WORDS FROM MEM/ITERATION 
;256 WORDS TO MEM/ITERATION 
;5 INTERRUPTS/ITERATION 

;SET DRIVE SELECT 
.•SETUP DRIVE SELECT MASK 
.•CLEAR DATA LATE COUNT 
;G0 SET UP REGISTERS 
.-COPY DRIVE SELECTION 
;WAS RL LOAD DEVICE? 

;N-BRANCH; Y-SEE IF LOAD UNIT SELECTED 

; SET UP FOR MASK 

;GET LOAD UNIT 

;IF ZERO GO MASK OUT UNIT 

.•SHIFT MASK 

;DEC COUNT 

.-KEEP CHECKING 

.-WAS THAT DRIVE SELECTED? 

,‘N-BRANCH; Y-CONTINUE 
.‘DELETE UNIT FROM DEVICE MAP 
.‘ASCII MESSAGE CALL WITH COMMON HEADER 
.-ANY DRIVES SELECTED? 

;YES, CONTINUE 

.•ASCII MESSAGE CALL WITH COMMON HEADER 

.•MESSAGE, DROP MODULE 

;+ / SUPPORT 

;♦ / FOR 

;♦ / DT03 

;♦/ 

.-GET PHYSICAL ADD'/JJS FROM 16-BIT RBUFVA 

.•SHIFT MASK FOR NEXT DRIVE 
.‘DRIVE MASK OVERSHIFT CHECK 
.•BRANCH IF MASK OK 
.•RESET DRIVE SELECT MASK 

.•RESET DRIVE SELECT 

.‘SIGNAL END OF ITERATION. 
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260 

261 000506' 

262 000506' 

263 000514' 

264 000520' 

265 000526* 

266 000530' 

267 000534* 

268 000540' 

269 

270 

271 

272 000544* 

273 000550' 

274 000554' 

275 000562* 

276 000570' 

277 000576' 

278 000604' 

279 000612' 

280 000620* 
281 000626' 

282 000630* 

283 000636' 

284 000644' 

285 000652' 

286 000660' 

287 000666* 

288 000674* 

289 000702* 

290 000706* 

291 

292 

293 

294 

295 000714' 

296 000722' 

297 000724* 

298 000732' 

299 000736' 

300 000742* 

301 000744' 

302 000750' 

303 000754* 

304 Q0Q762' 

305 000764' 
000770' 
000772' 
001000 * 
001006' 

310 001012' 

311 001014' 

312 001022 ' 

3» 

315 


306 

307 

308 

309 


062767 

005267 

036767 

001746 

005067 

005067 

005067 


004767 

004567 

012767 

012767 

012767 

012767 

012767 

012767 

032767 

001422 

042767 

052767 

052767 

05276? 

042767 

052767 

012767 

004567 

016767 


032767 

001446 

1142767 

104417 

016700 

010001 

046700 

01006? 

166767 

m 

m 

K 

001403 

052767 

010167 

046767 

000167 


000400 

004204 

003044 

002770 

003024 

003044 


000722 

001430 

100077 

077724 

077750 

100177 

077600 

077700 

000200 

100000 

100000 

100000 

iooooo 

100000 

100000 

000201 

001256 

002642 


002632 

000004 002622 
000001 002614 
000100 

000020 002600 

002552 002564 
000134 
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003110 IS: 

ADD 

#400, DRIVE 


INC 

NUMB 

003100 

BIT 

DRVMSK,DVICE 


BEO 

LOOPL 


CLR 

RETRY 


CLR 

RUER 


CLR 

CNT 


003022 

003002 

002776 

002772 

002766 

002762 

002726 

002740 

002734 

002730 

002714 

002716 

002676 

002729 

002704 


UE HAVE A DRIVE, START TESTING 


JSR PC,WTRDY 

JSR R5J>RVRTS 

MOV #1 00077, MASK2 

MOV #77724, FSTBSC 

MOV #77750,LSTBSC 

MOV #1001 77, MASK 

MOV #77600,LSTCYL 

MOV #77700,LSTTRK 

BIT #200,T.MP 

BEO 2$ 

BIC #100000, MASK 

BIS #100000, LSTCYL 

BIS #1 00000, LSTTRK 

BIS #1 00000, LSTBSC 

BIC #1 00000, MASK2 

BIS #1 00000, FSTBSC 

2$: MOV #201,DIFWD 

LOOP: JSR R5,RDHDR 

MOV T.MP,HDRWD 


; MONITOR SHALL TEST END OF PASS 

;NEXT DRIVE 

IS THAT DRIVE PRESENT 
NO, GO FOR NEXT ONE 
CLEAR A FEU LOCATIONS 
READ WRITE ERROR FLAG 
COUNT 


ISSUE DRIVE RESET, CLEAR VOLUME 
SET UP FOR RL01 


TEST RL01 OR RL02 
RL01 BRANCH 
FIX FOR RL02 


.-READ HEADER ON DISK 
;GET HEADER 


CHECK TO SEE IF RANDOM SEEK IS REQUESTED, BIT 1 OF SRI 
SET INDICATES A RANDOM SEEK OTERUISE SEEK IS INCREMENTAL 


000002 177074 TAG 

000177 002666 
000000 ' 

177112 

002626 

002646 

002640 002640 


It 


3$: 


BIT #8IT1,SR1 
BEQ TAG1 

BIC #177,HDRUD 

RANDS, BEGIN 
MOV RANNUM,RO 

MOV R0,R1 

BIC MASK,RO 

MOV RO,DIFUD 

SUB HDRWD.DIFWD 

BCC 1$ 

NEG DIFWD 

BR 2$ 

BIS #4,DIFUD 

BIS #1 .DIFWD 

BIT #100, R1 

BEO 3$ 

BIS #20,DIFUD 

MOV R1,HDRUD 

BIC MASK2,HDRUD 

JMP TAG2 


INCREMENTAL OR RANDOM SEEKS? 

INCREMENTAL, TAG1 

CLEAR HEAD AND SECTOR BITS 

STORE IT AWAY 

SAVE A COPY 

CLEAR HEAD AND SECTOR 

LET'S CALCULATE DIFFERENCE WORD 

GET DIFFERENCE TO SEEK 

MAKE DIFF ABSOLUTE 

SET DIRECTION BIT 
SET MARKER 
TEST HEAD 

IF 0, DON'T SET HEAD IN DIFF 
SET HEAD 

GET EXPECTED HEADER 
CLEAR SECTOR BITS 



RLAF DEC/X11 SYSTEM EXERCISER MODULE 
XRLAFO.P11 18-NOV-81 10:28 


MACY11 30(1046) 18-N0V-81 


H 1 
10:42 


PAGE 8 


316 001040' 

317 001046* 

318 001054' 

319 001056' 

320 001064' 

321 

322 001072' 

323 001074* 

324 001102' 

325 001104' 

326 001112' 

327 001120' 

328 

329 001126' 

330 001130' 

331 001136' 

332 001140* 

333 001146* 

334 001150* 

335 001156' 

336 001164* 

337 001166' 

338 001174' 

339 001200' 

340 001204' 

341 

342 001210' 

343 001216' 

344 001224* 

345 001232' 

347 001234* 

348 001242' 

349 001250' 

350 001256' 

351 

352 001264* 

353 

354 001272* 

355 

356 

357 001300' 

358 

359 001306* 

360 001314' 

361 001316' 

362 

363 001322' 

364 001330' 

365 001334' 

366 001340* 

367 001346' 

368 001352* 

369 001356' 


042767 

032767 

001007 

012767 

012767 

000440 

026767 

001012 

162767 

052767 

012767 

000422 

032767 

001404 

062767 

000403 

162767 

032767 

001403 

052767 

004567 

004767 

004567 

016767 

042767 

026767 

001425 

016767 

017767 

017767 

104403 


000177 002552 TAG1 
177600 002544 

000200 002534 
0C0205 002530 


002500 002516 1$: 

000200 002506 
000100 002500 
000221 002474 


000004 002464 2$: 
000200 002452 


000200 

000020 

000100 

000740 


002442 3$: 
002436 4$: 


000754 

002340 

000077 

003470 


002270 

002262 

002254 

000000 ' 


002424 


003502 

003474 

002366 


176636 

176632 

176626 

005466' 


371 001364' 


026767 

001002 

000167 

016767 

005467 

104414 

m 

005767 

001017 

004567 


TAG2: 


012767 000051 176614 

104405 000000' 005476' 


016767 003414 002312 


002306 002266 6S: 
177372 

176604 002302 7$: 
000000 * 

176576 002262 
002256 
000502 
002202 

000460 


BIC #177, HDRWD 

BIT #1 77600 .HDRWD 

BNE IS 

MOV #200, HDRWD 

MOV #205,DIFWD 

BR TAG2 

CMP LSTCYL. HDRWD 

BNE 2$ 

SUB #200, HDRWD 

BIS #100, HDRWD 

MOV #221 ,DIFWD 

BR TAG2 

BIT #4,DIFWD 

BEG 3S 

ADD #200, HDRWD 

BR 4$ 

SUB #200, HDRWD 

BIT #20.DIFWD 

BEG TAG2 

BIS #100, HDRWD 

JSR R5.SEEK 

JSR PC.WTRDY 

JSR R5.RDHDR 

MOV T.MP.CURADR 

BIC #77,CURADR 

CMP CURADR, HDRWD 

BEG 6$ 

MOV RLCS.CSRA 

MOV 8RLCS.ACSR 

MOV BRLCS.ASTAT 

MSGNS, BEGIN, BDSEEK 


CLEAR OUT SECTOR BITS 8 HEAD 
ON TRACK 0? 

NO, GO CHECK FOR LAST CYLINDER 
SET NEXT ADDRESS-CYL 1 
D IF WD 1, MARKER, SEEK IN, HS=0 
SET CURRENT HD=0, SEEK IN 

CURRENT ADDRESS-LAST TRACK? 

NO, CONTINUE 


DIF WD 1, MARKER, SEEK OUT, HS=1 
SET CURRENT HD=1, SEEK OUT 

SN SET IN DIF WORD 
NO, 3$ 

YES, CYL WILL INCREMENT 
SKIP OVER 

NO, CYL WILL DECREMENT 
HEAD SET? 

NO, LEAVE EXPECTED ALONE 

YES, SET HEAD SELECT BIT 

PERFORM SEEK 

WAIT FOR SEEK TO FINISH 

READ HEADER VERIFY CORRECT 

SEEK 

READ HEADER 

CLEAR OUT SECTOR BITS 

WAS SEEK CORRECT? 

YES, CONTINUE 
NO REPORT ERROR 


.‘ASCII MESSAGE CALL WITH COMMON HEADER 


MOV #51 .ERRTYP ;BAD SEEK 

;****************************************************** >******** 
HRDERS, BEGIN. TABLE .-SEEK WAS BAD 

; *************************************************************** 

MOV CURADR.HDRWD ;MAKE MISTAKE NEW HDRWD 


MOV 

NEG 

GWBUFS, 

MOV 

NEG 

JSR 

TST 

BNE 

JSR 


HDRWD. LSTTRK 
7$ 

TAG 

R8UFS2.WCNT2 

WCNT2 

BEGIN 

WBUFS2.WCNT1 
WCNT1 
R5, WRITE 
RWER 
5$ 

R5.WRCHK 


ARE WE ON LAST TRACK 
NO, CONTINUE 

YES. GO GET ANOTHER CAUSE ITS THE BAD SECTOR TRACK 

GET BUFFER SI2E (READ) 

NEGATE FOR RLMP 

GET WRITE BUFFER INFORMATION 

GET BUFFER SI2E (WRITE) 

NEGATE FOR RLMP 
WRITE DATA 
CONTROLLER ERROR ?? 

SKIP READS IF SO. 
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372 001370' 

373 001374’ 

374 001376' 

375 001402' 

376 001406' 

377 001410' 

378 001416' 

379 001420' 

380 001422' 

381 001430' 

382 001432* 

383 001436' 

384 

385 001442' 
m 001446* 
38? 001452' 
3S8 001460* 

389 001462* 

390 001466' 

391 

392 

393 

394 001472* 

395 001500' 

396 001506* 

397 001514' 

398 001522' 

399 001524' 

400 001526' 

401 001526* 

402 001532' 

403 001536' 

404 001542* 

405 001544* 

406 

407 001552' 

408 

409 001560' 

410 001564' 

411 001566' 

41 2 

413 

414 

415 001572' 

416 001572' 

417 001600' 

418 001606' 

419 001610* 

420 001612' 

421 001612* 

422 001620' 

423 001622' 

424 001622' 


005767 

005767 

001005 

104412 

001422’ 

000410 

032767 

001404 

004567 

000167 

005067 

005267 

022767 

001402 

000167 

000167 


042777 

056777 

012767 

032777 

001401 

000207 

104407 

104407 

005367 

001364 

012767 


002170 

000506 

002156 

000000* 000126' 


000001 176366 5$: 

000134 

177002 

002116 4$: 

002136 

000020 002130 
177214 

176752 3S: 


TST RWER 

BNE 5$ 

JSR R5.READ 

TST RWER 

BNE 5S 

CDATAS, BEGIN, R8UFPA 
5$ 

BR 4$ 

BIT #81 TO, SRI 
BEQ 4$ 

JSR R5.DR0P 

JMP LOOPL 

CLR RWER 

INC CNT 

CMP #16.. CNT 

BEQ 3S 

JMP LOOP 

JMP LOOPL 


ERROR ?? 

SKIP READS IF SO. 

READ DATA 
ERROR ?? 

SKIP DATA CHECK IF SO. 

REOUEST FOR MONITOR TO CHECK DATA 
IF ERROR. RETURN AT TAG 5$ 

BR IF NO DATA ERRORS. 

DROP ON ERROR ?? 

NO 

YES, DROP IT. 

...AND TRY ANOTHER. 


; REITERATE 16 TIMES/DRIVE... 
.-...THEN GET ANOTHER DRIVE. 


WAIT FOR DRIVE READY. DROP DRIVE IF IT NEVFR COMES UP. 


001400 002030 WTRDY ; 
002120 002022 
077777 002072 
000001 002006 1$: 


000000 * 

000000 * 

002044 

000006 176334 


#1400,dRLCS 
DRIVE.BRLCS 
#7777^, CLK 
#1 .BRLCS 
2 $ 

PC 


SET UP TIMEOUT 
DRIVE READY? 

NOT YET 

YES, RETURN TO CALLER. 


; GP-3 
; GP-3 


BREAKS.BEGIN 

.TEMPORARY RETURN 

TO MONITOR.... 

BREAKS .BEGIN 

.•THEN CONTINUE AT 

NEXT INSTRUCTION. 

DEC 

CLK 

.‘CHECK TIMEOUT 


BNE 

IS 

; LOOP TIL TIMER EXPIRES. 

MOV 
• ***** 

#6.ERRTYP 

.•DRIVE NOT READY 

*********************** 


104405 000000* 003530* 


004567 

005726 

000167 


104403 

046767 

001401 

000205 

104403 

005726 


000006 

176652 


000000* 005406' 
001764 002020 


000000* 005416* 


HRDERS.BEGIN.RLCS .'DRIVE NOT READY 

;*************************************************************** 
JSR R5.DR0P ; CLEAR DRIVE (DROP) FROM LIST. 

TST (SP)+ ; FIX THE STACK... 

JMP LOOPL .‘...AND GO FOR ANOTHER. 

DROP CURRENT DRIVE. DROP MODULE IF NO DRIVES LEFT. 


DROP: 


104410 000000' 


FINI : 


MSGNS.BE GIN , DROPMS 
BIC DRVMSK.DVICE 

BEQ IS 

RTS R5 

MSGNS, BEGIN .NOLEFT 
TST (SP)+ 

ENDS, BEGIN 


.‘ASCII MESSAGE CALL WITH COMMON HEADER 
.‘CLEAR THIS DRIVE BIT. 

; DROP MODULE IF NO MORE. ;GP-3 

; OTHERWISE. RETURN TO CALLER. ;GP-3 

.‘ASCII MESSAGE CALL WITH COMMON HEADER 
; FIX STACK. 

.-DROP THE MODULE 


ROUTINE TO SET UP RL11 REGISTERS, VECTOR AND BR LEVEL 
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001626' 

016700 

176154 


SETUP: 

MOV 

ADDR.RO 

GET BASE ADDRESS 


001 W2* 

010067 

001672 



my 

RO.RLCS 

CONTROL REGISTER 


001636* 

005720 




TST 

(ROM 

INCREMENT FOR NEXT 


001640' 

010067 

001666 



MOV 

RO.RLBA 

BUS ADDRESS 


001644' 

005720 




TST 

(ROM 

INCREMENT FOR NEXT 


001646' 

010067 

001662 



MOV 

RO.RLDA 

DISK ADDRESS 


001652' 

005720 




TST 

(ROM 

INCREMENT FOR NEXT 


001654* 

010067 

001656 



MOV 

RO.RLMP 

DATA BUFFER 


001660' 

032767 

000010 

176130 


BIT 

08IT3.SR1 

TEST IF AN RLV12 CONTROLER 

;GP-4 

001666* 

001411 




BEO 

1$ 

BR IF NOT 

;GP-4 

001670* 

005720 




TST 

(ROM 

INCREMENT FOR NEXT 

;GP-4 

001672' 

010067 

001642 



MOV 

RO.RLBAE 

BUS EXTENDED ADDRESS REGISTER 

;GP-4 

001676' 

012767 

003556' 

003602 


MOV 

AT.BAE.TABLEY 

FIX ERROR REPORT 

;GP-4 

001704' 

012767 

003560* 

003576 


MOV 

#T.STAT,TABLEZ 

FOR RLV12 CONTROLLER 

;GP-4 

001712' 

016700 

176072 


1$: 

MOV 

VECTOR.RO 

GET VECTOR ADDRESS 


001716* 

012720 

000252* 



MOV 

fSTART. (ROM 

SET POINTER 


001722' 

116710 

176064 



MOVB 

BRI.(RO) 

SET PRIORITY 


001726' 

000207 



• 

0 

RTS 

PC 

RETURN 



446 

447 

448 

449 

450 001730* 

451 001736* 

452 001744* 

453 001746* 

454 001754* 

455 001762* 

456 001770* 

457 001776* 

458 002004* 

459 002012* 
440 002014' 

461 002022' 

462 002030' 

463 002036' 

464 

465 002040' 

466 002042* 

467 002044* 

468 002046* 

469 

470 

471 

472 002050' 

473 002056* 

474 002060* 0 

475 002066* 0 

476 002074* 

477 002102' 

478 002106* 

ill KW 

481 002124* 

482 002132' 

483 0021 3o' 


016767 

016767 

000406 

016767 

016767 

016777 

042777 

056777 

032767 

001411 

104416 

016777 

016777 

000207 

000000 

000000 

000000 

000000 


012767 

000403 

01276? 

16777 

016777 

004767 

000444 

012767 

m 

000430 


SUBROUTINE TO SET 18 OR 22 BIT BUS ADDRESS IN CONTROLLER. 
THIS ENTIRE SUBROUTINE IS NEW. 


;GP-4 


176200 

000102 

SETUBA: MOV 

176174 

000076 

MOV « 
BR 

176154 

000064 

SETRBA: MOV 

176150 

mmm 

MOV 

000052 

001542 

SETCMN: MOV 

000060 

001532 

BIC 

000040 

001524 

BIS 

000010 

176004 

BIT 



BEQ 

000000' 

002040' 

MAP22S. 

000016 

001502 

MOV 

000012 

001502 

MOV 



IS: RTS 



PA18: 0 
EA18: 0 
PA22 : 0 
EA22 : 0 


UBUFPA.PA18 

WBUFEA.EA18 

SETCMN 

RBUFPA.PA18 

RBUFEA.EA18 

PA18.BRLBA 

#60.iRLCS 

EA18.8RLCS 

08IT3.SR1 

1$ 

BEGIN, PA18 
PA22.BRLBA 
EA22.BRLBAE 
PC 


; GET 18 BIT WRITE BUFFER ADDRESS. 

; GET 18 BIT READ READ BUFFER ADDRESS. 

; SET BA<15:0>... 

...AND BA<17:16> IN CSR<5:4>. 

ARE WE RLV12 ?? 

BR IF NOT. 

; GET 22-BIT ADDR FROM 18-BIT ADDR 
; LOAD BA<15:0>... 

; . . .AND BA<21 :16>. 


18 BIT BA<15:0>. . . 

...AND EA<17:16> IN BITS <5:4>. 
22 BIT BA<15:0>. . . 

...AND EA<21:16> IN BITS <5:0>. 


DRIVERS (INTERRUPT) 


000102 

001540 

WRCHK : 

MOV 

403 

#102.FUNC 

WRITE-CHECK... 
... OR ... 

000112 

001536 

001530 

WRITE: 

MOV 

#112.FUNC 

...WRITE FUNCTION. 

001442 


MOV 

WCNT1.8RLRP 

WORD COUNT 

001520 

177622 

001432 


MOV 

JSR 

BR 

HDRWD.8RLDA 

PC.SETWBA 

EXEC 

DISK ADDRESS 
WRITE BUFFER ADDRESS 

0001 14 

001500 

READ: 

MOV 

#114.FUNC 

READ FUNCTION 

001510 

001412 


MOV 

WCNTl.SRLMP 

WORD COUNT 

001470 

177610 

001402 


MOV 

JSR 

BR 

HDRWD.BRLDA 
PC. SETRBA 
EXEC 

DISK ADDRESS 
READ BUFFER ADDRESS 


; GP-4 


; GP-4 
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484 002140' 

485 002146' 

486 002154' 

487 002162' 

488 002164' 

489 002172' 

490 002174* 

491 002202' 

492 002204' 

493 002212' 

494 

495 002220' 

496 002226' 

497 002234' 

498 002242' 

499 002250’ 

500 002256' 

501 

502 

503 

504 002262' 

505 

506 002262' 

507 

508 002270* 

509 002274' 

510 002302' 

511 002310' 

512 002316' 

513 002324' 

514 002332* 

515 002340' 

516 002346' 

517 002350* 

518 002356* 

519 002362* 

520 002364* 

521 002370' 
5 22 

523 002372' 

524 002376* 

525 002404* 

526 002412' 

527 0 

528 0 


012767 

016777 

052777 

000416 

012767 

000412 

012777 

000403 

012777 

012767 

042777 

056777 

056777 

012777 

042777 

104400 


V 

& 

t* 

$ 

& 


% 


24 
24 
2436' 
2444* 
2444' 
2450' 
2454' 
2462' 

24^2 ' 

2500' 


000106 001450 
001450 001360 
000001 001352 

000110 001424 

000003 001332 

000013 001322 
000104 001376 


001416 

001372 

001356 

002262' 

000200 

000000 ' 


001302 

001274 

001266 

175540 

001252 


000004 000000' 002270' 


005067 

016767 

017767 

016767 

017767 

017767 

017767 

032767 

001403 

017767 

005767 

100403 

005067 

000205 

005267 

012767 

032767 

001457 

012767 

056767 

016777 

104407 

m 

1770 


012767 


001264 

001230 

001222 

175566 

001210 

001204 

001200 

000010 


175576 

175572 

001230 

001224 

001220 

001214 

175450 


001134 


001166 

005402' 

040000 

000003 

000004 

001170 

001102 

000000 * 

000000 ' 

000200 

001046 

000000 ' 

000006 


SEEK: MOV #106,FUNC 

MOV DIFUD.BRLDA 

BIS #1,8RLDA 

BR EXEC 

RDHDR: MOV #110.FUNC 

BR EXEC 

GSTAT: MOV #3.BRLDA 

403 

DRVRTS: MOV #13,BRLDA 

MOV #104,FUNC 

EXEC: BIC #1416.8RLCS 

BIS DRIVE .BRLCS 

BIS FUNC. BRLCS 

MOV #INTSRV,3VECT0R 

BIC #200, BRLCS 

EXITS, BEGIN 

CONTINUE HERE ON RL INTERRUPT. 


SEEK FUNCTION 
DIFFERENCE WORD 
SET MARKER BIT 

READ HEADER FUNCTION 

GET STATUS... 

... OR ... 

...RESET AND GET STATUS. 
GET STATUS FUNCTION. 

CLEAR THE OLD... 

...AND INSERT NEW DRIVE... 
...AND OPCODE SITS. 

SET UP INTERRUPT VECTOR... 
...AND EXECUTE. 


; GP-4 
; GP-4 
; GP-4 
; GP-4 
; GP-4 


;EXIT TO MONITOR. MODULE WAIT FOR INTERRUPT. 


INTSRV: 


PIRQS, BEGIN, IS 


; QUEUE UP TO CONTINUE AT 1$ AND RTI 


001164 001200 
001164 20$: 


003054 

001134 

001112 

001114 

001106 

001064 


001046 

001066 

005452' 

175400 


11 $: 


99$: 


CLR T.STAT 

MOV RLCS.CSRA ;LOAD ADDR OF CSR 

MOV BRLCS, ACSR .’LOAD CONTENTS OF CSR 

MOV ACSR.T.CS 

MOV 8RL8A.T.BA 

MOV BRLDA.T.DA 

MOV BRLMP T MP 

BIT #8IT3'SR1 .’TEST IF RLV12 CONTROLLER 

BEQ 20$ ;BR IF NOT 

MOV BRLBAE.T.BAE ; GET EA BITS 

TST T.CS ;ANY ERRORS 

6MI 11$ ; YES, CONTINUE TO CHECK 

CLR RETRY 

RTS R5 ;N0, RETURN CALL+4 SKIP RETRY 

INC RUER 

MOV #NULLX,HTYPE .’SETUP FOR NULL PRINT 

BIT #81 T1 4, T.CS ; DRIVE ERROR 

BEQ 2$ ; NO, BRANCH 

MOV #3,BRLDA .‘GET STATUS 

MOV #4 , TMP 

BIS DRIVE, TMP 

MOV TMP.BRLCS 

BREAKS, BEGIN .’TEMPORARY RETURN TO MONITOR.... 

BREAKS.BEGIN ; THEN CONTINUE AT NEXT INSTRUCTION. 

BIT #200,dRLCS 

BEQ 99$ 

MOV BRLMP T STAT 

MSGN$,BE r IN,DRVERR .’ASCII MESSAGE CALL WITH COMMON HEADER 
MOV #6,ERRTYP .-DRIVE ERROR 

;t*»*****»»*»*****t**t*»ft*«»t************t*tt*fkt*t*t»»***t*t**t* 


.’TEST IF RLV12 CONTROLLER 
;8R IF NOT 
.•GET EA BITS 
.’ANY ERRORS 

;YES, CONTINUE TO CHECK 
;N0, RETURN CALL+4 SKIP RETRY 


SETUP FOR NULL PRINT 
DRIVE ERROR 
NO, BRANCH 
GET STATUS 


; TEMPORARY RETURN TO MONITOR.... 
.’THEN CONTINUE AT NEXT INSTRUCTION. 


.’ASCII MESSAGE CALL WITH COMMON HEADER 
.’DRIVE ERROR 


GP-4 

GP-4 

GP-4 
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540 002506* 

541 

542 002514* 

543 002522* 

544 002530* 

545 002530* 

546 002534* 

547 002540* 

548 002546* 

549 002550* 

550 002552* 

551 0u2560* 

552 002562* 

553 002570' 

554 002572* 

555 002600* 

556 002602* 

557 002610* 

558 002616' 

559 002620* 

560 002626* 

561 002630’ 

562 002636' 

563 002640* 

564 002646* 

565 002650* 

566 002656' 

567 002660' 

568 002664* 

569 002672' 

570 002674* 

571 

572 002702' 

573 002710* 

574 002712* 

575 002720* 

576 

577 002726* 

578 

579 002734* 

580 002742* 

581 002744* 

582 002750* 

583 002754* 

l§5 002756* 
586 002762* 

588 

589 

590 

591 003016' 

592 003022* 

593 003024* 

594 003032* 

595 003040* 


104405 000000' 



012777 

016777 

104407 

104407 

032777 

001770 

000522 

032767 

001404 

012767 

000515 

032767 

001423 

012767 

032767 

001404 

012767 

000505 

032767 

001472 

012767 

000475 

032767 

001406 

005367 

012767 

000463 

012767 

032767 

001011 

104403 

012767 

104406 

026767 

001405 

005267 

162705 

000205 

016700 

042700 

016067 

016767 

104403 

104403 

005067 

W 

104403 

000766 


000013 

001016 

000000 ' 

000000 * 

000200 


020000 

005376* 

002000 

005351 ' 
004000 

005371 * 

010000 

005365* 

004000 

000666 
005361 ' 

005355* 

000004 

000000 ' 

000001 

000000 ' 

000564 

000554 

000004 

000634 
177761 
004726* 
002460 
)0C 


005476* 


HRDER$, BEGIN, TABLE 

■ 

# 



; *************************************************************** 

001012 


MOV 

#13,3RLDA 


001000 


MOV 

TMP.BRLCS 



98$: 






BREAKS, BEGIN 

.’TEMPORARY RETURN TO MONITOR 



BREAKS. BEGIN 

.‘THEN CONTINUE AT NEXT INSTRUCTION. 

000762 


BIT 

#200,3RLCS 




BEQ 

98$ 




BR 

NORPT 


000766 

2$: 

BIT 

88IT13.T.CS 

;NXM SET 



BEQ 

21$ 


002670 


MOV 

#NXM,HTVPE 




BR 

HRDRPT 


000746 

21$: 

BIT 

A8IT10.T.CS 

;OPI SET 



BEQ 

4$ 

,’NO, CHECK DCRC.DCK 

002650 


MOV 

fOPI.HTYPE 

; INITIAL SET FOR 0 PI 

000730 


BIT 

#8IT11,T.CS 

;HCRC? 



BEQ 

3$ 

;N0, BRANCH 

002632 


MOV 

8HCRC.HTYPE 

;HCRC ERROR 



BR 

FNDBSC 

.‘FIND BAD SECTOR 

000710 

3$: 

BIT 

#BIT12,T.CS 

;HNF 



BEQ 

HRDRPT 

; NO, REPORT AS REPORT 'TOPI" 

002612 


MOV 

8HNF.HTYPE 

;HNF ERROR 



BR 

FNDBSC 

;G0 CHECK BAD SECTOR FILE 

000670 

4$: 

BIT 

8BIT11 ,T.CS 

;DCK? 



BEQ 

5$ 

; NO, MUST BE DLT 



DEC 

T.DA 

.’RACK UP TO SECTOR THAT WAS BAD 

002566 


MOV 

8DCK.HTYPE 

;uJC ERROR 



BR 

FNDBSC 

;G0 CHECK BAD SECTOR FILE 

002556 

5$: 

MOV 

fDLT.HTYPE 

.‘SETUP DLT ERROR 

175106 

RPTERR: 

BIT 

88IT2.SR1 

.•PRINTING SOF TERRORS ?? 



BNE 

55$ 

;N0, SKIP PRINT 

005456' 


MSGN$, BEGIN. SOFT 

.’ASCII MESSAGE CALL UITH COMMON HEADER 

175160 


MOV 

81.ERRTYP 

.‘DATA ERROR 

005476* 


SOFER$,BEGIN, TABLE 

• 

9 

000564 

55$: 

CMP 

RETRY, LIMIT 

.‘RETRY EXHAUSTED 



BEQ 

6$ 

;YES, NO MORE RETRIES 



INC 

RETRY 




SUB 

#4,R5 

; ADJUST RETURN PC... 



RTS 

R5 

.‘...AND TRY AGAIN. 


000502 

002430 

000000' 


6S: MOV 

BIC 

002432 MOV 

002436 MOV HTYPE.TER1 

005436' MSGN$,BEGIN,HARD 

005426* MSGN$,BEGIN,EXCEED 

NORPT: CLR RETRY 

RTS R5 

002406 H. RPT : MOV HTYPE.TER1 

005436* MSGN$, BEGIN, HARD 

BR NORPT 


;GP-1 


FUNC.RO ; GET FUNCTION CODE... 

# A C16,R0 .STRIP IT... 

FNCLST(RO), EXCEED ;...AND GET APPORPRIATE TEXT. 

GET ERROR TYPE 

ASCII MESSAGE CALL WITH COMMON HEADER 
ASCII MESSAGE CALL UITH COMMON HEADER 


.’ASCII MESSAGE CALL WITH COHMON HEADER 


GP-2 

GP-2 

GP-2 
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596 

597 




• 

; ERROR WAS HCRC OR HNF OR OCX, POSITION TO LAST TRACK AND RECOVER 

l 

1 

598 




;BAD SECTOR 

: ILES. IF OCK/HNF CHECK WHOLE DA, IF HCRC CHECK IF 


599 




;WE WERE DOING A RDHDR IF READ HDR THEN CHECK ONLY TRACK AND 


600 

601 

60c 




; CYLINDER. 




003042 ' 016701 

000532 


FNDBSC: 

NOV 

LSTCYL.R1 

LAST TRACK 


605 

003046' 016700 

000546 



NOV 

HDRUD,R0 

PRESENT POSITION 


604 

003052' 042700 

000100 



BIC 

J100.R0 

R0.R1 

CLEAR OUT HEAD 


605 

003056' 160001 
003060' 010177 




SUB 

CALC SEEK DIFFERENCE 


606 

000450 



NOV 

R1.8RLDA 

J25.8RLDA 

LOAD SEEK DIFFERENCE 


607 

003064' 052777 


000442 


BIS 

SET HEAD 1, SEEK IN 


608 

003072* 016767 

It' 1 'rTvfl 

000462 


NOV 

DRIVE ,NFLG 

SELECT DRIVE. (NFLG UESD) 


609 

003100* 052767 


000454 


BIS 

#6, NFLG 

SET UP SEEK 


610 

003106' 016777 

000450 

000414 


NOV 

MFLG.8RLCS 

PC.WTRDY 

SEEK 


611 

612 

613 

614 

615 

003114' 004767 

176352 



JSR 

WAIT FOR SEEK TO FINISH 





;NOW SITTING 

ON LAST TRACK, RECOVER BAD SECTOR FILES AND COMPARE 


003120* 016700 

000456 



NOV 

LSTTRK,RO 

STARTING SECTOR 0 


616 

003124* 005067 

000432 



CLR 

MFLG 

SWITCH TO TELL US MANUF OR FIELD FILE 


617 

003130' 005067 

000432 



CLR 

FND 

FLAG TO INDICATE HEADER FOUND IN LIST 


618 

003134' 010077 

000374 


2$: 

NOV 

R0.8RLDA 
J-256. ,iRLMP 

LOAD SECTOR TO READ 


619 

003140' 012777 

177400 

000370 


NOV 

TWO SECTOR READ 


620 

003146' 012777 

000215 

000354 


NOV 

J215.8RLCS 

READ COMMAND 

;GP-4 

621 

003154' 004767 

176566 



JSR 

PC.SETRBA 

BUFFER ADDRESS. 

; GP-4 

622 

003160' 056777 

000440 

000342 


BIS 

DRIVE, 8RLCS 

INSERT DRIVE 

; GP-4 

623 

003166' 042777 

000200 

000334 


BIC 

J200.8RLCS 

EXECUTE IT. 

624 

003174' 004767 

176272 



JSR 

PC.WTRDY 

WAIT FOR DRIVE 


625 

003200' 005777 

000324 



TST 

8RLCS 

READ SUCCESSFUL?? 


626 

627 

628 

003204' 100023 




BPL 

4$ 

YES. GO CHECK FOR SECTOR 


003206' 062700 

000004 



ADD 

J4.R0 

NO, NEXT SECTOR 


629 

003212' 005767 

000344 



TST 

NFLG 

WHICH WE READING. MANUF OR FIELD 


630 

003216' 001012 




BNE 

3$ 

FIELD COMPARE AGAINST 77750 


631 

003220' 026700 

000346 



CMP 

FSTBSC.RO 

MANUFACTURING, AT END 


632 

003224' 001343 




BNE 

2$ 

NO, GO BACK AND READ NEXT 


633 









634 

003226* 



99$: 





635 

003226* 104403 

000000' 

005446* 


MSGNS.8EGIN. NOSEC 

ASCII MESSAGE CALL WITH COMMON HEADER 


636 

003234' 004567 

176332 



JSR 

R5.DR0P 


637 

638 

639 

003240' 000167 

175200 



JNP 

LOOPL 



003244* 026700 

000324 


3$: 

CMP 

LSTBSC.RO 

AT END OF FIELD BAD 


640 

003250' 001331 




BNE 

2$ 

NO. GO BACK 


641 

642 

643 

003252* 000765 




BR 

99$ 

YES GO DROP DRIVE 


003254' 016701 

174644 


4$: 

NOV 

R8UFVA.R1 

GET WHERE WE READ 


644 

003260' 062701 

000010 



ADD 

J10.R1 

J126..R2 

SKIP PAST I.D. ETC 


645 

003264* 012702 

000176 



NOV 

ONLY 126 ENTRIES 


646 

003270' 012103 



44$: 

NOV 

(R1H.R3 

GET CYLINDER 


647 

003272' 100437 




BNI 

88$ 

MINUS WE'RE DONE 


648 

003274 ' 012104 




NOV 

(R1 ) ♦ , R4 

GET TRACK AND SECTOR 


649 

003276’ 000303 




SUAB 

R3 

ALIGN PROPERLY 


650 

003300’ 006303 




ASL 

R3 



651 

003302* 150403 




BISB 

R4.R3 
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652 003304* 

653 003310* 

654 003312' 

655 003316' 

656 003324' 

657 003326’ 

658 003334' 

659 003336' 

660 003342' 

661 003346' 

662 003350' 

663 003352* 

664 003356' 

665 003360' 

666 003364' 

667 003366' 

668 003370' 

669 003372' 

670 003376' 

671 003400' 

672 003404 s 

673 003410' 

674 

675 003412* 

676 003416' 

677 003422' 

678 003426' 

679 003430* 

680 003434* 

681 003442' 

682 003450* 

683 003452* 

684 003460* 

685 003466* 

686 003474* 

687 003502* 

688 003506* 

689 003512* 

690 003514* 

691 003520* 

692 

693 

694 

695 003524* 

696 0 r?6* 

697 003530* 

698 003532* 

699 003534* 

700 003536* 

701 003540* 

702 003542' 

703 003544' 

704 003546* 

705 Cf>75 c 0* 

70 ( 00j>552* 

70; 003554' 


032704 

001402 

052703 

022767 

001012 

022767 

001006 

042703 

020367 

001404 

000406 

020367 

001003 

005267 

000412 

005302 

001337 

005767 

001005 

005267 

016700 

000651 

016700 

016701 

042700 

160001 

010177 

052777 

032767 

001403 

052777 

016767 

052767 

016777 

004767 

005767 

001002 

000167 

000167 



177777 

177777 


000400 

000100 

005371' 002134 

000110 000262 

000077 

000252 


000174 

000202 


000164 

000156 

000162 


000202 

000156 

000100 

000100 

000001 

000100 

000020 

000140 

000006 

000062 

175764 

000054 

177162 

177272 


000072 

000150 

000054 

000074 

000066 

000026 


MACY11 

30(1046) 

18-N0V-81 


BIT 

#400. R4 


BEQ 

5$ 


BIS 

#100.R3 

5$: 

CMP 

#HCRC,HTYPE 


BNE 

6$ 


CMP 

#110,FUNC 


BNE 

6$ 


BIC 

#77,R3 


CMP 

R3.HDRWD 


BEQ 

7$ 


BR 

8$ 

6S: 

CMP 

R3.T.DA 


BNE 

8$ 

7$: 

INC 

FND 


BR 

9$ 

8$: 

DEC 

R2 


BNE 

44$ 

88$: 

TST 

MFL6 


BNE 

9$ 


INC 

MFLG 


MOV 

FSTBSC.RO 


BR 

2$ 

9$: 

MOV 

HDRWD.RO 


MOV 

LSTCYL.R1 


BIC 

#100. RO 


SUB 

R0.R1 


MOV 

R1.8RLDA 


BIS 

#1 .8RLDA 


BIT 

#100.HDRWD 


BEG 

10$ 


BIS 

#20.8RLDA 

10$: 

MOV 

DRIVE. MFLG 


BIS 

#6. MFLG 


MOV 

MFLG.9RLCS 


JSR 

PC.WTRDY 


TST 

FND 


BNE 

11$ 

11$: 

JMP 

RPTERR 

JMP 

NORPT 


.'LOCATIONS USED BY MODULE 



RETRY: 

LIMIT: 

RLCS: 

RLBA: 

RLDA: 

RLMP: 

RLSAE : 


TMP: 

T.CS 

T.BA 

T.DA 

T.MP 


.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 


0 

3 

0 

0 

0 

0 

177777 

177777 

0 

0 

0 

0 

0 




SfR MODULE 
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lyViVV 

htw f 

Kwx* 

uiyAv 

wA 

VVVVf 

wWv 

Kvvy 

Kw> 

[yly 

m 

Lyvvv 

Kvv; 

Km 


hli’i’i 

MvT* 

KvT* 

tm* 



T.BAE: 

T.STAT: 

MFLG: 

RWER: 

FND: 

DRVMSK: 

FSTBSC: 

LST0SC: 

MASK: 

LSTCYL: 

LSTTRK: 

MASK2: 

CLK: 

CNT: 

MULDRV: 

DLTCNT: 

FUNC: 

HDRWD: 

D1FUD: 

DRIVE: 

DVICE: 

WCNT1 : 

WCNT2: 

IsECBF: 

CURMSG: 

CURADR: 


NUMB: 

FNCLST: 


WORD 


WORD 

WORD 


8LKW 

8LKW 



I 


NULLX 
MES1 : .ASCII 


MES2: .ASCII 


ME S3: .ASCI2 
MESA: .ASCII 
MESS: .ASCI2 


Oi 000113 MES6: 


042 


•ASCI2 



oooooooooooooooooooo 


SEQ 0014 
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s 


# 


RLV12 BAE 


;GP-4 



.•NUMBER OF DATA LATE ERRORS 
.•FUNCTION TO BE PERFORMED 
.•HEADER WORD (RDHDR. R/W) 
.•DIFFERENCE WORD (S§CK) 
.•DRIVE UNDER TEST (BITS 8.9) 
.•WORKING ‘DVIDI" 

.•WORD COUNT (WRITE) 

.•WORD COUNT (READ) 

.-BAD SECTOR UST 


OPCODE 0 UNUSED. 

1 = WRT CHK. 

2 = RESET OR GET STATUS. 

3 = SEEK. 

4 = READ HEADER. 

5 « WRITE. 

6 - READ. 

7 = READ NO-HEADER (UNUSED). 


'NO DRIVES PRESENT X' 


'NO DRIVES LEFT X' 

'DRIVE * 

' DROPPED X* 

'READ HEADER' 

'SEEK' 

"’REAP * 

'UR I 


; GP-2 
; GP-2 


;GP-2 
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OO58 

H! 


127 

041455 

000 

104 

051040 


040 

020131 

020124 

051445 



f Si 

000 




■» 

m 


ill 

04304 


HR: 


c 1 I 8 

54116 

W 


5406; Oj 
5414 * l! 


$|g MODULE 

m 
wm m 
ni » 

1 

113 

ff 
22 

P RH» 

3111 Q20105 


044514 


053440 

041440 

042504 


53111 

>47522 



54|2' 004746* 


Bii 

m 

020122 

m 

oil117 

022505 


MACY11 30(1046) 


MES8A: .ASCI Z 


MES9: .ASCI Z 


MES10: .ASCI Z 


MES11: .ASCiZ 


MES12: .ASCIZ 

MES13: .ASCIZ 


MESH: .ASCiZ 


MES15: .ASCiZ 


MESH: .ASCiZ 


NBDSC: .ASCiZ 


OPI: 

DLT: 

OCX: 

HNF : 

HCRC. 

NXM: 

NULLX: 

CR: 


.ASCiZ 

.ASCiZ 

.ASCiZ 

.ASCiZ 

.ASCiZ 

.ASCiZ 

.ASCiZ 

.ASCiZ 

.EVEN 


DROPMS: MES3 


NCLEFT 


'Wfe 


ABORT: MES1 



SEO 0015 

; GP-2 


'XSEEK TO WRONG CYLINDERX' 

•DATA LATEX* 

•DRiVE ERRORX* 

’SOFT ERROR * 

'RLX LOAD UNIT DROPPED' 

'HARD ERROR ' 

'CANT RECOVER BAD SECTOR FiLEX' 


1 8— NOV— 81 10:42 PAGE 16 
'WRITE-CHECK' 

'DRiVE RESET* 

’ RETRY LIMIT EXCEEDEDX' 


'OPI* 

'DLT* 

•DCK' 

*HNF' 

HCRC' 

'NXM* 

1 • 

*X* 
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SEQ 0016 



0054 ^; 


777 

mt 



•R MODULE 

28 


D 2 

MACY11 30(1046> 18-N0V-81 10:42 PAGE 17 


177777 

000001 


EXCEED: .WORD 0 
MES10 
CR 

177777 

HARD: MES16 

TER1 : .WORD 0 

CR 

177777 
NOSEC: NBDS£ 7 

DRVERR: MES13 

177777 

SOFT: MESH 

HTYPE : .WORD 0 

BDSEEK: 

DROPLD: 

; REGISTERS OF RL11 

fABLE: .WORD T.CS 

.WORD T.BA 
.WORD T.DA 
.WORD T.MP 
TABLET: .WORD T.STAT 

TABLE 2: .WORD 177777 

.WORD 177777 

.END 


CONTROL AND STATUS REGISTER 

BUS ADDRESS REGISTER 

DISK ADDRESS REGISTER 

DISK DATA BUFFER ADDRESS 

T.BAE ;HAS STATUS ON DRIVE ERROR 

T.STAT : TERMINATOR 

TERMINATOR 


• • 













SEQ 0018 


F 2 
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TABLE — 

USER SYMBOLS 

264 

417 

713# 

264 

417* 

728# 


575* 

495# 


714# 

488* 493* 497 585 657 


313* 

476 


316* 

481 


317 

603 


319* 

660 


323 

675 


563* 5o8* 570* 588 593 


724# 


325* 326* 332* 

681 725# 


655 838# 


411 

676 

718# 


637 

717# 


334* 









SEO 0020 


H 2 
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TABLE — USER SYMBOLS 


591* 695# 

698# 


395* 

534 

397 

543* 

407 

547 

429* 

610* 

456* 

620* 

457* 

622* 

495* 

623* 

496* 

625 

497* 

686* 

486* 

490* 

492* 

513 

527* 

542* 

606* 

607* 

618* 


536 619* 700# 

385* 523* 711# 


458 515 572 


338# 

703# 



557 


561 


565 


7 04# 850 





SEQ 0021 
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T.MP 

T.STAT 

VECTOR 

UASADR 

UBUFEA 

VBUFPA 

WBUFRQ 

WBUFSZ 

WCNT1 

UCNT2 

VIDFR 

UDTO 

URCHK 

WRITE 

WTRDY 

XFLAG 


0035 5 AR 
003S60R 
00001 OR 
0001 OAR 
0001 36R 
TI34R 
)140i 
_ )142R 
003630R 
003632R 
000116R 
0001 1AR 
002050R 
002060R 
001472R 
000005R 
00551 AR 


290 

508* 

AA2 

A51 

A50 

366 
367* 
36 A* 
221 * 
222 * 
472# 
A 74# 
339 

732 # 


MACY11 30(1046) 18-N0V-81 ! 10?42 PAGE 
CROSS REFERENCE TABLE -- USER SYMBOLS 


342 

536* 

498* 


514* 

709# 


707# 

854 


853 


23 


475 729# 

480 730# 

394# 611 624 687 
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CROSS REFERENCE TABLE — MACRO NAMES 


9KH0D 

1# 


BREAK 

1# 

400 

BTOD 

1# 


CKDATA 

1# 

377 

OATACK 

1# 


DATERR 

1# 


DFSEVN 

1# 

220 

DSEVNT 

If 

220 

END 

If 

423 

END1T 

If 

258 

ENDMOD 

If 


EQUATS 

if 

220 

EXIT 

If 

500 

GETPA 

If 

250 

GUBUFF 

If 

365 

HRDER 

If 

353 

IOMOD 

If 


IOMOOP 

If 


IOMODR 

If 


IOMODX 

If 

148 

MAP22 

If 

460 

MODULE 

If 

149 

MSG 

If 


MSGN 

If 

241 

MSGS 

If 


NBKMOD 

If 


OTOA 

If 


PIRQ 

If 

504 

RAND 

If 

298 

SBKMOD 

If 


SOFER 

If 

576 

. ABS. 

000000 

000 


005514 

001 


420 537 
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